home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / Source / Math.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1994-11-15  |  745 b   |  21 lines  |  [TEXT/.Ob4]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. MODULE Math;
  4. IMPORT MathL;
  5. CONST
  6.     e- =   2.7182818284E+00;
  7.     pi- =   3.1415926535E+00;
  8. PROCEDURE sin* (x: REAL): REAL;
  9.     BEGIN RETURN SHORT(MathL.sin(x)) END sin;
  10. PROCEDURE cos* (x: REAL): REAL;
  11.     BEGIN RETURN SHORT(MathL.cos(x)) END cos;
  12. PROCEDURE arctan* (x: REAL): REAL;
  13.     BEGIN RETURN SHORT(MathL.arctan(x)) END arctan;
  14. PROCEDURE exp* (x: REAL): REAL;
  15.     BEGIN RETURN SHORT(MathL.exp(x)) END exp;
  16. PROCEDURE ln* (x: REAL): REAL;
  17.     BEGIN RETURN SHORT(MathL.ln(x)) END ln;
  18. PROCEDURE sqrt* (x: REAL): REAL;
  19.     BEGIN RETURN SHORT(MathL.sqrt(x)) END sqrt;
  20. END Math.
  21.